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DECLARATIONS 

RMSSEQJNL = Sequential Journaling setup 
MAKE_AI_JNL = Put operation specific info in Al jnl 
MAKE _BI_JNL = Put operation specific info in BI jnl 
CHANGE BUFF = get next buffer 

WRTBIJNL = writes BI/RU journal entry 
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SBEGIN RM1IJOURNL,000,RMSRMS_JOURNAL,<Sequential specific journaling> 


SRRAAAAREAAAAAEREAAAAAEAAAAAAAAAAAAAARAAAAEAAAAAAAAEARERAAAAAAARAAAAAAAAERAERAAAE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND od i 
ONLY IN ACCORDANCE WITH THE MS 0 AN H 
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TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepPORATiON NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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++ 
FACILITY: RMS-32 
ABSTRACT: This module contains the routines which journal record 


operations performed on sequential files. 


ENVIRONMENT: VAX/VMS Operating System 


AUTHOR: Tamar Krichevsky, CREATION DATE: 28-May-1983 
MODIFIED BY: 


v03-005 TSK0004 Tamar Krichevsky 9-Dec-1983 
Add support for BI journaling. 


SOoOOCOCCCOSOSOSOSOSOOOOoOSooOoooooooooooooooooooooooooo 
OOCCCOCOOSSOSSOOSSOVSOOOOOCOCCOOOOOOCOOOOOOOOOooOoO 


LRRRBRAAARASARLESSALALAEASESERAR ARERR ASA A RARER RRR RRR ARRAS ARR RDO D SD | 


® 
* THE CODE FOR BI JOURNALING OF TRUNCATE OPERATIONS HAS NOT 
: BEEN TESTED. 


RATATAT AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAATAAAAAAAAEAReETA AES 


V03-004 JwT0141 Jim Teague 11-Nov-1983 
Change IFBSV_RUM to fe V_ONLY_RU 
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RM1JOURNL S tial specifi Lj 16-SEP-1984 714 VAX/VM 4- 
V04- aE . denying ne =3Eb = P-1 7 9°: 39:38 :28 RMS. eRca mig oun RAR: 1 —_ Gh) 


28 3 v03-003 renee: Krichevs ky 5-0c t-1983 
3 Use RMSRETJNLBDB. ond " ANSALINLBD instead of RMSRETBDS and 
3 when allocating a large journal buffer. 

8 $9 RMSALBDB wh Ll i l j L buff 
00 $6 ; v03-002 ysxooge Tamar Krichevsk 27-Jun-1983 
000 63 ; Pass journal BDB to RMSWRTINL Thoteod of related BDB for 
4464 rf: : Al operations. 
0900 26 3 v03-001 | pag Tamar RARE ay ad 22-Jun-1983 
00 67 ; Clean up comments for MAKE_AI_JNL. 
0090 oe ee 
200 ts 
0000 71 
44 ie: -SBTTL DECLARATIONS 
8000 74 ; INCLUDE FILES: 
0000 75 : 
0000 76 
0000 77; 
4 ee : MACROS: 
0000 80° SIFBDEF 
0000 H+ SBDBDEF 
0000 ¢ SIRBDEF 
0000 8 $F ABDEF 
0000 84 SRABDEF 
0000 85 SRMSDEF 
0000 86 SRIRDEF 
44 rH SCJFDEF 
0000 +4 3; EQUATED SYMBOLS: 
0000 e 3 
$33 
0000 38 3; OWN STORAGE: 
0000 94; 
0000 95 
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1 - 
equential journaling setup gr Sep =19 RMS.SRCJRM1JOURNL .MAR; 1 
97 -SBTTL RMSSEQJNL - Sequential journaling setup 


Seque 
RMSSE 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
RMSSEQJNL is called when a sequential file record operation needs 
to be journaled. It fills in the recover journal record (RJR) with 
the appropriate information and the returns to the caller. 

CALLING SEQUENCE: 
BSBW RMSSEQJNL 

INPUT PARAMETERS: 


4(SP) type of record operation to be performed 
4 BDB a 


ddress 
R5 Data record address 
R6 Data record size 
R8 RAB 
RG IRAB 
R10 IFAB 
R11 Impure 


IMPLICIT INPUTS: 
IRBSL_JNLBDB Address of journal BDB 
OUTPUT PARAMETERS: 


RO Status 
R1 - R3 Destroyed 


IMPLICIT OUTPUTS: 
None 

COMPLETION CODES: 
None 

SIDE EFFECTS: 


The journal buffer and BDB may be released and new ones allocated, 
the the existing buffer is not large enough to hold the current 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Sete Ge Ge Se 


ee ee ee ee a ee ee me ee ee ee a ee ee ee ee dd dd od 
APO ODNAUES WPI OOD VAUE WIN $9 OO NOUS WN O OONAUE WN" OOONOAUS WN 00 


0 record. 
0 
0 =——_ 
0 
0 
RMSSEQJNL:: 
30 =: BB PUSHR #*M<R4, R5> ; Save BDB and record addresses 
54 30 A9 00 p ¢ MOVL IRBSL_JNLBDB(R9), R4 ; Get the journal BDB 
6 i¢ 
0006 ; 


r 
' 


RM JOURNL Sequential specific journalin 16-SEP-1984 00:50:14 VAX/VMS Macro v04-00 Page 
“704-000 RMSSEQUNL - Beeuent ist journaling setup ~3Ep= 1984 6:25:28 CRMS.SRCJRM1JOURNL.MAR; 1 . (2) | 
| $ 154 ; The buffer for the journal entry must be Large enough to hold the current 
155 ; record and any overhead necessary to describe the record. If the buffer is 
| Eee § ; not lores enough, then deallocate it and its BDB. Then, allocate a new buffer 
| $8 13 ; (and buffer descriptor block) which will be Large enough. 
$008 135 : If the operation being journaled is a B81 STRUNCATE or BI S$PUT, with the TPT 
| 006 160 ; option, then skip this check. Journaling for these operations is done block 
006 161 ; mode. Therefore, a different set of criteria is used to check the size of 
444 16¢ ; the journal buffer. 
88 6 163; 
006 164 ;- 
0006 186 
06 QOUAO CA O02 €1 166 BBC #IFBSV_BI, IFBSB_JNLFLG(R10), 10$ ; If not BI, check iy buff size 
04 AE 1F 93 OO00C 167 BITB &#<RJRS-TPT!RJRS_TRUNCATE>, 4(SP) ; BI TPT or TRUNCATE? 
53. Baa 198 BNEQ 30$ : Yes, skip size check 
51. 2C AS 0068 BF AZ 001 170 10$: SUBW3 #RJRSC_RECLEN,BDBSW_ALLOC_SIZE(R4),R1 ; ignere jrnl entry overhead 
52 66A9 64 A9 A3 001 171 SUBW3 IRBSW.ROVHDSZ(R9), = ; Ignore the overhead for the 
OO1F \7¢ IRB$W_RTOTLSZ(R9), R2 : current record, also 
52. SF AA AO OO1F 17 ADDW2 IFBS$B_FSZ(R10), R2 ; Do count fixed header part 
51 52 B61 0023 174 CMPW R2, RT ; Will record fit in buffer? 
30 = 1B 0098 10? BLEQU 308 :; Yes, Make and write jnl entry 
06 BB 0028 177 PUSHR #*M<R2> ; Save the record size 
| OQOOOOO00'EF 16 Bogn 178 RMS$RETJNLBDB ; Release this buffer and BDB 
| 20 BA 0030 179 #*M<R5> ; Get record size - It is put in 
bn35 180 : RS because of RMSALDBUF 
55 00000048 8F CO 003 181 WRIRSC_RECLEN, R5 ; Add in journal entry overhead 
55 OQOOOO01FF 8F CO 0039 13 #511, R5 ; Round up to a 
55 QOO00IFF 8F CA 0040 18 #511, R5 ; page boundary 
estaney 16 0047 184 RMSALDJNLBUF : Get new buffer and BDB 
03 50 5S 0040 185 RO, 208 3; Keep going if everything is ok 
005A 1 iF 186 EXIT ; Get out on error 
005 187 20$: SSB #BOBSV_PRM, BDBSB_FLGS(R4) ; Mark BDB as permanent 
18 B46 7C 0058 188 CLRQ @BDBSL_ADDR(R4) ; Clear the top of the buffer 
OA9 54 D0 0058 189 MOVL R4, IRB$L_JNLBDB(R9) 3; Save the BDB's address 
55 04 AE DO OOSF 190 MOVL 4(SP), R5 ; Restore the record address 
06 11 #0063 191 BRB 40$ 
0065 its 
0065 193 ;+ 
0065 194 ; ; E 
0065 195 ; The journal buffer is all set. Now, the journal entry is filled in and 
0065 196 : written to the journal. first, fill in the overhead which describes the 
BRee 197 ; record. 
06 198 ; 
Boge 199 ;- 
065 $00 
53 18 AG) «600 60065 01 30$ MOVL BOBSL_ADOR(R4), R3 ; Get the jnl buffer address 
| 03 a3 02 90 0069 08 40$ MOVE  #RJRSC_RECORD, RJRSB_ENTRY_TYPE(R3); A record is being jnl'ed 
| 04 a3 00 90 06D 0 MOVB #RJRSC"SEQ, RIRSB G(RS) ; File org. is sequential 
05 AS «OC AE 90 0077 04 MOVB 12(SP)> RJRSB_OPER(R3) : Type of record operation 
40 a3 48 A9 00 0076 205 MOVL IRBSL_RP_VBN(R9), RJRSL_RFAO(R3): RFA is needed, get VBN part 
44 AS 4C AD 0 843 86 MOVW IRBSL_RP_OFF(R9), RJRSWLRFAG(RS);  —= and offset into block 
51 48 AS E 00 ? . MOVAB RJRST-RIMAGE(RS), RI ; Point to start of record image 
09 4 3 3+ 
4 10 ; 


C 
RM JOURNL Sequential specific journalin 16-SEP-1984 AX/VMS Macro V04-00 Pa 5 | 
04-0 RMSSEQJNL - g rahi journaling setup 3 Fei 984 9 6: 3 38 RMS.SRCIRM1JOURNL MAR; 1 - (2). 
j | 
: ; 1 ; Do the journal-type specific stuff. 
| t 518 5 a journaling 
4 14; 
| Bae 
13 OOAO CA O03 €1 88 4 i$ BBC WIFBSV_AI, IFBSB_JNLFLG(R10), 508; 44 not AI jnl' ing. keep going 
4 10 OOBA 18 BSBB MAKE_AT_JNL ; Make the AI record image. 
1€ 50 =€9 008C 19 BLBC RO, EXIT ; Get out on error 
4 DD QO08F $0 PUSHL R ; Use jnl BDB as related BDB 
7E QO3 9A 0091 1 MOVZBL &#CJFS 4 -(SP) ; Pass jnl type to RM$WRTJNL 
FF69" 30 Beas ; SBW RMSWRTJN ; Write journal entry 
5E 8 CO 0097 ADDL2 #8, SP ; Remove arguments from stack 
10 50 €9 QO9A 4 BLBC RO, EXIT ; Get out on error 
009D 5 
bos 557 5 | 
009D 8 : BI journaling 
0090 9; | 
boo 31 
QOOAO CA O03 93 009D 3 50$: BITB SCL SSN BES UF BON PUP POOR _MEFLEIRO) ; BI or RU jnling? 
09 «13 Bpae $ BEQL =e EXIT ; No, then continue 
05 A3 1F 93 O0A4 $3e BITB #<RJRS_TPT!RJRS_TRUNCATE>, RJRSB_OPER(R3) ; BI TPT or TRUNCATE? | 
03 12 OOA8 $36 BNEQ EXIT 7 Yes, jnl entry was already written 
OD 30 OOAA tH BSBw WRTBIJNL ; Write jnl entry 
QOAD 339 EXIT: | 
30 BA OOAD 240 POPR = #*M<R4, R5> 
05 OOAF 41 


| 
| RMT JOURNL Sequential specific journaling. 1 ~$E0-1986 00:5 :14 YAX/VMS Macro V04-00 Page 6. 
v04 RMSSEQJNL = Sequential journaling setup -SEP=-1984 16:23:28 CRMS.SRCIRMIJOURNL.MAR;1 (4). 
B 43 
| : te -SBTTL MAKE_AI_JNL = Put operation specific info in Al jnl 
B 46 ;++ 
} B 4 P 
$8 ‘3 ; FUNCTIONAL DESCRIPTION: 
2980 50 ; MAKE_AI_JNL moves the operation specific information in the journa 
+9 51 ; entry for an Al journal. ’ 
008 26 ; 
| 338 5$ } CALLING SEQUENCE: | 
| dso 35 ; BSBW = MAKE_AI_JNL 
Py | 
Het 3? 3 INPUT PARAMETERS: 
$080 59: R1 Address of record image portion of journal buffer | 
3288 60 ; R3 Journal buffer address 
0B0 261; R4 Journal BDB address | 
00B0 6¢ 3 R5 Record address 
0080 63 ; R6 Record length 
00B0 64 ; R8 RAB EX 
0080 65 ; R9 IRAB EX 
00B0 66 ; R10 IFAB EX 
0080 67 ; | FA 
0080 68 ; IMPLICIT INPUTS: FA 
00B0 69 ; FA 
iS ee f 
0080 si¢ ; OUTPUT PARAMETERS: FAI 
00B0 73 ; FAI 
00B0 274 ; RO Status FAI 
00B0 275; R1 = R3 Destroyed IF | 
00B0 276; IF | 
0080 sie ; IMPLICIT OUTPUTS: IF| 
00B0 78 ; IF 
0080 279 ; None if 
0080 280 ; IF 
0080 Y ; COMPLETION CODES: IF 
00B0 6 3 If 
+94 83 ; RHB or RBF IF 
+94 84 ; IF 
008 85 : SIDE EFFECTS: | Lf 
$080 6? 3 None ir 
00B0 8 . - 
Hitt 89 ; I 
08 90 IR 
080 91 IR 
9 36 MAKE_AI_JNL: IR 
0B 9 IR 
ae i 
08 38 ; Fill in Al apec tise information in the journal entry. Then if the record | IR 
0B0 97 ; being journaled is VFC format, copy the fixed header portion into the IR 
94 2 3; the record image. | MA 
0B 99 ; | Ma 
| 
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RM1 JOURNL Bequens fal specific journaling at ib 4 00:50:14 VAX/VMS Macro Vv04-00 Page 7. 
| vO4=000 MAKE _AI_JNL = Put operation specific inf 5-SEP-1984 16:23:28 (CRMS.SRCJRM1JOURNL.MAR; 1 (4) | 
080 i :- 
| 0 BB 8 ¢ PUSHR #*M<R4, RS5> ; Save jnl bdb and record adr 
30 wc 8 4 MOVL #1, R ; Assume success 
06 A 1 90 B 4 MOVB #RIRSC_RMS_AI, RJRSB_JNL_TYPE(R3); This is an Al journal entry | 
14 a4 0048 8F BO 0089 05 MOVW WRIRSC_RECCEN, BDBSWINUMB(R4) =; Journal entry contAlns at 
OBF 36 3 least the overhead 
05 a3 1B 91 OOBF 8 CMPB #RIRS_TRUNCATE, RJRSB_OPER(R3) ; Is the operation truncation? 
> a a9¢3 3 BEQL TRUNC_ENTRY ; No need to copy any data 
AS 56 80 0O0C 10 MOVW R6, RIRSW_RSIZE(R3) ; Save the record’s size | 
14 AG 6 AQ 00C9 11 ADDW2 R6, BDBSW_NUMB(R4) ; Add rec len to jnl entry size 
A QO 91 OOCD \¢ CMPB #FABSC_VFC, IFBSB_RFMORG(R10) ; Is the record VFC format? 
2? sl2 ed 1? BNEQ 40$ ; No, copy the record 
Ome | 
't4 1? : Copy the fixed header portion of the record. | 
00D 19 :- | 
SOD 320 | 
52 SF AA 9A 00D $5) MOVZBL IFB$&8_£SZ(R10), R2 3; Get Length of fixed hdr part 
14 AG 52 AO 00D7 22 ADDW2 R2, BBBS$W_NUMB(R4) ; Count FSZ in jnl entry size 
50 2C AB D0O O0DB 323 MOVL RABS$L_RHBTR8), RO ; Get adr of user's hdr buffer 
08 12 OODF $e BNEQ ; If buffer adr given, copy hdr 
61 52 00 60 00 2C O0E1 5 MOVCS #0, (RO), #0, R2, (R1) ; Zero hdr part of record image | 
0B 11 QOE7 326 30§ ; Copy variable portion of rec 
Q0E9 $56 20$ IFNORD R2, (R5), ERRRHB, IRBSB_MODE(R9); Quit if hdr can't be read } 
61 65 26 28 O0FO 28 MOVCS Re, (R5), (R1) ; Copy hdr part to record image 
; ee DO OOF4 329 30$ MOVL R3, R1 ; Point to next byte in rec image | 
54 6E 7D Ad $39 MOVQ (SP), R4 ; Retrieve BDB and rec adr 
ie 
OOFA 3; Copy the record to the journal entry. | 
OOFA 335; 
OOFA 337 si 
0200 8F 56 61 OQOFA 38 40$: CMPW R6, #512 : Is record longer than a page? 
0B 1B OOFF 39 BLEQU ; Yes, do short read probe 
OOO000000'EF 16 0101 40 JSB RMSPROBEREAD ; No, do a long probe 
1¢ 50 £9 0107 341 BLBC RO, ERRBUF ; Get out on error | 
OB 11 O10A 4g BRB 60 ; Continue processin 
8195 43 50$: IFNORD R6, (R5), ERRBUF, IRBSB_MODE(R9); Quit if record can‘t be read 
a+ @& 6% 2 sil 44 MOVC3 R6, (R5), (RI) ; Copy record to jnl entry 
aie 45 60$: RMSSUC ; Journal entry is complete 
00 11 OTA 46 BRB EXIT_AI_RTN 
Q11C 47 
Oe 49S 
011C 50 ; ALL the information necessary for Al recovery of a STRUNCATE operation is 
011C¢ 51 ; already in the RMS journal record (RJR). Therefore, no further modification 
Biie 26 3; needs to be done to the journal entry. 
gE ge 
11¢ 326 TRUNC_ENTRY: | 


RMIJ 
VO4 
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MAKE_AI_JNL = Put operation OO atte inf 5=SEP-1984 16:25:28 CRMS.SRCJRM1JOURNL.MAR;1 (4 


11C 57 EXIT_AI_RTN: 
30 A 11¢ 23 POPR #*M<R4, RS> 
5 OIE 5 RSB ; Return to caller 
11F 60 
11F 61 ERRRHB: 
11F 66 RMSERR RHB 
F6 3611 «0124 6 BRB EXIT_AI_RIN 
126 64 
126 65 ERRBUF : 
126 66 RMSERR' RBF 
EF 11 0128 67 BRB EXIT_AI_RIN 


Cn ae 
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Bethe Sequential C 
v04 MAKE_AI_JNL = Put operation specific inf 5=-SEP-1984 16:23:28 (CRMS.SRCJRMIJOURNL.MAR; 1 
D 9 
4 19 -SBTTL MAKE_BI_JNL = Put operation specific info in BI jnl 
D i ++ 
D 7 
4 re FUNCTIONAL DESCRIPTION: 
D 6 MAKE_BI_JNL moves the operation specific information in the journal 
4 4 entry for an BI journal. . 
4 § CALLING SEQUENCE: 
D BSBW MAKE_BI_JNL 
55 INPUT PARAMETERS: 
R1 Address of record image portion of journal buffer 
R3 Journal buffer address 
RG Journal BDB address 
R6 Record length 
2 R8 RAB 
R9 IRAB 
R10 IFAB 
IMPLICIT INPUTS: 
None 


OUTPUT PARAMETERS: 


RO Status 
R1 - R3 Destroyed 


IMPLICIT OUTPUTS: 

None 
COMPLETION CODES: 

Any completion code returned by RM$NXTBLK1 
SIDE EFFECTS: 

None 


Sete Be Ge Se Ge Be Ge Se Se Se Se Ge Se Se Fe Se Ge Ge Se Ge Be Ge Se Se Ge Ge Se Ge Fe Ge Ge Ge Se Ge Ge Se Se Se Se Ge Se Se 


MAKE _BI_JNL: 


: Fill im BI/RU specific information in the journal entry. 
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OOFO 8F 6B PUSHR #*M<R4, RS, R6, R7> ; Save jnl bdb, record adr & Len 


| 
| 
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104-000 MARE BI _JNL = Put Sobran ton specific inf misty 7 93:3 7:28 CRMS.SRCIRM1JOURNL MAR; 1 ° (6) 
0 1 OD 131 4 MOVL #1, RO ; Assume success 
| 14 AG 3048 a 8 134 4 $ MOVW #RIRSC_RECLEN, BDBSW_NUMB(R4) ; Journal entry contains at 
135A 4 S ; least the overhead 
05 AS 13 91 QISA 4 CMPB #RIRS_PUT, RJRSB_OPER(R3) ; Is the operation $PUT? | 
12 01 430 BNEQ 0$ ; No, move data to jnl entry | 
| 016 Ht 14 431 BRW PUT _ENTRY ; Yes, no need to move data 
05 A3 As ?} 1° : § 10$ Bree g0 RS UPDATE, RJR$B_OPER(R3) ; 1s the operation $UPDATE? 
: Yes 
| 0086 31 O149 434 BRW «1 TRUNC_ENTRY ! No, it's truncate on put, or $TRUN| 
0O14C «4 $ 
| gi4¢ 437 3+ | 
14C «64438; 
014C 439 ; Adjust journal entry size to compensate for any overhead. If it is VFC, 
014C 440 ; include size of fixed header portion. For UDF, VAR, FIX and VFC do not add in 
014C 441 ; size of control (count) field. Do include overhead for STM, STMLF and STMCR. 
Bee rei ; The terminators are counted as overhead, but are also part of the record. | 
| 014C 444 ;- | 
014C 445 
46 A3 56 BO b1e6 rt 20$: MOVW R6, RJRSW_RSIZE(R3) ; Save rec size in jnl entry 
0150 448 ASSUME FABSC_VFC GT FABSC_UDF 
0150 449 ASSUME FABSC"VFC GT FABSC~VAR 
0150 450 ASSUME FABSC"VFC GT FABSC~FIX | 
| 0150 451 ASSUME FABSC_STM GT FABSC_VFC 
0150 $36 ASSUME FABSC_STMLF GT FABSC_VFC | 
0150 45 ASSUME FABSC_STMCR GT FABSC_VFC 
b126 $38 ASSUME FABSC_STMCR EQ FABSC_MAXRFM 
50 AA O03 91 Q150 456 CMPB #FABSC_VFC, IFBSB_RFMORG(R10) ; Is the record VFC format? 
08 <1F Q0154 457 BLSSU 30$ 3; No, ignore overhead (count field) 
16 1A 0156 458 BGTRU 40$ : No, include overhead (terminators) 
56 SF AA 80 0158 459 ADDB2 =IFBS$B_FSZ(R10), R6 : Yes, include header portion 
10 11 O15C 460 BRB 40$ 
Q0A1 CA 02— 93 OIE 461 30$:  BITB #<IFBSV_BI_RECVR!IFB$V_RU_RECVR>, IFBSB_RECVRFLGS(R10) ; If in recov 
09 12 016 ree BNEQ 40$ 3. terminators are already counted 
56 64 A9 AO 0165 46 ADDW2 IRB$W_ROVHDSZ(R9), R6 ; Stream format, include overhead 
46 AS 64 A9 AO 0169 464 ADDW2 IRBS$W-ROVHDSZ(R9), RURSW_RSIZE(R3) ; Add overhead to ie entry size 
14 A4 56 AO 0195 $92 40$: ADDW2 = R6, BOBSW_NUMB(R4 5 ; Increase size of jnl buffer 
017 467 ;+ 
017 468 ; ; : 
oi5 ry ; Locate the first byte_of the data to be copied to the journal entry. 
17 470 ; NOTE -- This assumes 512 byte blocks. 
017 471 ; | 
17 1% | oat | 
17 47 
50 20 A9 00 0172 474 MOVL IRB$L_CURBDB(R9), RO ; Retrieve BDB for buffer 
55 48 AO 9A 0176 475 MOVZBL BDBS$B-REL_VBN(ROS, R : Get block containing record 
55 48 AA (C4& OI17A 476 MULL IFB$L~DEVBUFSIZ(R10), R5 ; Convert to byte offset 
55 18 AQ CO QI7E 477 ADDL BOBSL_ADDR(RO), R5 ; Add offset to buffer address 
$0 4c a9 = 3C 182 478 MOVZWL IRBSW7RP_OFF(R9), RO ; Get offset with in block 
55 50 C0 ; 3 144 ADDL2 RO, R5 ; Point to first byte of record 
189 cai 3+ 
189 482 ; 


ees hea aah lie erm a i ee ee ee De ee . 7 


3 
| Oa) Jpyee. Seque specific journalin 16-SEP-1984 AX/VMS Macro V04-00 Page 1 
v04- MA ~ ( 


i 0:50:14 
ut operation shecitic inf 5=-SEP-1984 8:39:38 RMS.SRCJRM1JOURNL .MAR; 1 


mc 
Zz 
os 


If there is a count field preceeding the record, skip over it so that we are 
Fruely pointing to the first orte of the record. Since the total record size 
ncludes the count field, if that value is different from the one calculated | 
for the journal entry, then the record has a count field and it should be 


ntia C 
Bl_J P 
189 483 
189 484 
Bi 
189 4 S skipped. 
189 488 
| 189 296° | 
| 50 66A9 3¢ 0189 491 MOVZWL IRBS$W_RTOTLSZ(R9), RO ; Get total record size | | 
50 «(556 ce 18D £36 SuBL¢ R6, RO ; Determine count field length 
55 50 CO 019 49 ADOL RO, R5 ; Move pointer over count field 
813 494 
| O198 | 496 5 | 
019 497 ; Save the current record pointer, in case the record crosses into the next 
019 498 ; buffer cous ing the rest of the record is read into the buffer. After the 
019 499 ; whole record has been copied to the journal entry, the current record pointer 
B13 209 ; will be needed to restore the current contents of the buffer. | 
| gigs 8g | 
| 8133 504 ASSUME IRBSW_RP_OFF EQ <IRBS$L_RP_VBN + 4> 
7E 48 A9 7D 193 505 MOVQ IRBSL_RP_VBN(R9), -(SPY 
0197 506 
Bsr Bah | 
Py 
813! 248 ; Copy the record to the journal entry. The current register contents are: 
B19) 511 ; Ri - address of first byte of RJR record image (destination) | 
197 21§ : R5 - first byte of record in buffer (source) 
0197 513; R6 = number of bytes to transfer to journal entry | 
0197 514; R7 - end of buffer address + 1 
0197 515; 
o197 1p | 
0197 518 COPY_DATA: 
one es es Oe), ee hs, SUBL3 R5, R7, RO ; Get # of bytes left in source buff 
56 50 01 0198 520 CMPL RO, R6 : Is whole record in buffer? 
0S 18 Q19—E 521 BLEQU 108 ; No, transfer size = remaining buff | 
50 56 00 O14 23¢ MOVL. 6, RO ; Yes, use rec len as transfer size | 
56 50 C2 OIA 523 10$: SUBL RO, R6 ; Adjust size of record 
61 65 50 28 O1A6 524 mMOoVC RO, (R5), (R1) ; Copy the (partial) record | 
56 DS OQ1AA 5 TSTL R6 ; Any data left to copy? 
0 \¢ 1AC § BNEQ 20$ : Yes, refill buffer, copy rest of r| 
1 1 1AE BRB RESTORE _BUFF ; No, copy is complete. 
08 BB 1B 528 208: PUSHR #*M<R3> ; Save source and destination 
OOF C 1B 529 BSBW CHANGE _BUF F ; Get next buffer 
55 51 DO O1B 2 0 MOVL R1, R5 ; Save source location 
51 8EDO 0188 1 POPL R ; Restore the destination 
D9 50—és«éEB 6188 238 BLBS RO, COPY_DATA : Copy rest of record or fall thru t. 
01BE 4 BI_ERROR_EXIT: | 
1BE 5 ASSUME IRBSW_RP_OFF EQ <IRBS$L_RP_VBN + 4> ; 
48 Ad of 7D 018 6 MOV (SP)+7 IRBSL_RP_VBN(R9J ; Retrieve record pointer | 
| OOE 31 + ' BRW EXIT_B1_RIN ; Return with error status 
| 1¢ 9 RESTORE _BUFF: | 
j i 
| 
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v04 MAKE _BI_JNL = Put Soheak tak on "0 inte inf g: 3 Eb=1 3k 98: 39: i} RMS.SR chk 
1c 40 ASSUME IRBSW_NRP_OFF EQ <IRBSL_NRP_VBN + 4> 
40 A9 BE 7D 1f8 41 MOVQ (SP)+> IRBSL_NRP_ VBNCROT. 
stances + 16 O1C rk: JSB RMS$GETBLKNRP 3; Restore contents of the buffer 
ODA 31 1CF 4 BRW Exit -BI_RIN ; Return with error status 
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The current eeerer re involves seuaree res (STRUNCATE or S$PUT, with TPT set). 
The rest of t ile must be copied to the journal. This is done one buf fer 
at a time, from the current VBN to the OF. The journal entries are formatted 
os Block {7/0 entries, not record entries. Recovery should be done as a series 
re) 


(ARRBRRSAASAASALAASALALEALESESASESESESSS ELSE ERE SERS RRS RRS S REESE SE SE 


* 
* THE CODE FOR BI JOURNALING OF TRUNCATE OPERATIONS HAS NOT 
2 BEEN TESTED. 


(RRR RASASASASALASASALASESESESARSESEESESE SEARS ESSE ESSE SESSLER SSS SE 


BI_TRUNC_ENTRY: 


consistent state before any data is copied to the journal. 


JS RMSFLUSH ; Write buffers to disk 
BLBS RO, 108 ; If that worked, keep going 
BRW EXIT_BI_RTN ; Get out on error 


| 
| 
| 
3 Write all dirty buffers out to the disk, to be sure that the file is ina | 


Determine the maximum size for the journal entry. Check to see if it fits 
in the current journal buffer. 


MOVZBL IRBSB_MBC(R9), R5 ; at most, MBC # of blks will be cop 


L MBC is zero benes, not one based 
MULL2 IFBSL pEveuT ese tate), R5 Convert to byte 
ADOL #RJIRST_BLKLEN Include jnt entry overhead in size 
CMPW BDBSW_ Mtoe Pei zE CRS) , RS Will it tit in the curr buff? 


Yes, continue processing 


Get a new journal buffer is needed; the current one is too small. Initialize 
any journal entry fields which are assumed to already have values in them. 


PUSHL R5 ; Save jnl buff size | 

JSB RMSRET JNLBDB ; Release this buffer 

ADDL2 #511, R5 ; Round the number of bytes to 

BICL #511, R5 : up to a page boundary 

POPL R5 ; Restore jnl buffer size | 

JSB BASAL DINLOUF ; Get a new BDB and buffer 

pues exit 1 3; Continue if new BDB is okay 
10$: MOVL prose NNLBDB(R 9) ; Save the jnl BDB address 

MOVB PRIR C_SEG, RJR$B_ORG(R3) ; File is sequential organization 
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1C AG 
55 00000044 
14 AG 


50 48 AA SC 
14 A4 
40 AS 14 


18 A4 = =00000044 = 


00000000 ' EF 
18 A4 00000044 8F 
05 50 


0028 


14 AG = 0044 


1 
14 AG = 004 
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MAKE_TRUNC_ENTRY 
CMPL 


Ww>PrrOo OC oO 
OnNnwnsn-— —OPY 


SUB 
MOVZWL BDB$W_NUMB(R4), 


DDD DDD DD DS TTT BB EEE PEPE PW pnonpononen 


PPP -BHOHLMOHLE LLL LKNDYVWTNAHPOWLLLLLLLLL LLP DP OPM ~oponopopnpy 


CAAA AA BB BRR EEE BWWWWWWAAAGARRORONONPONINONNIND 2 SS SS OOO OOOO 


PEA AAAAAAAAAAAAA AAA AA AA AA AA AAA AA AAA AA AAA AAA AAA AAA AAA OAA AO 
CONOAU EWN 0 OD NAME WIN OS OD NA UE WIN 0 OD NOAM EWN OOD NAME WWIN OOD NOU EWN 
eee - 


PoPonononononononond 
OO 0000000 00000000 00 COC I I 


ANTM O DS & 


oo 


| 
| 
| 
| 
| 

51 55 a9 

52 51 48 AD 

74 AA 

OF 
| 
| 
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ournal BDB and the journal entry. The jnl entry should Look 


/0 operation is happening. 


IRBS 
BCKLEN 


RP_VBN(R10), BDBSL_VBN(R4); Start VBN is VBN of curr rec 


Ovrhd not included in # bytes to j | 
ize of tranfer into jnl entry 


, 8 (R4) - § 
#RIR C BLOCK, RJRSB ENTRY TYPE(R3) =; Block mode 1/0 


§ meres is psuedo-$WRITE 
; VEN of Ist bl being inte 


BD : 
BDB$W-NUMB(R4S, RJRSC_BLOCR_SIZE(R3) ; # of bytes being jn 


yond EOF: 
is in current buffer, set the number of bytes to journal so that 
only data up to the first free byte is read into the journal buffer. 
Read data into the journal entry and write the entry to the journal. 
Determine the start VBN for the next buffer. 


IRBSB_MBC(R9), R1 
IRBSL_RP_VBN(R9), R1, R2 


: Read VBNs into jnl buffer from the disk. 


RJRSC_BLKLEN EQ RJRST_BLOCK 
#RIRST_BLKLEN, BDBSL_ADDR(R4) 
#°M<R1>, R2, RS> 

RMSROBUF WT 

#RJRSC_BLKLEN, BDBSL_ADDR(R4) 
#*M<R1, R2, R3> 

EXIT_BI_RTN 

entry out to journal. 


#RJRSC BLKLEN, BDBSW_NUMB(R4) 
WRIBIJN 


#*M<R1, R2, R3> 
RO, exit BI_RTN 
#WRIRSC_BCKLEN, BDBSW_NUMB(R4) 


; EOF is in buffer if: 
; (MB 


C + 1) + start VBN 
is greater than EBK 


; Is EOF in the current buffer? 


Use RJR$T_BLOCK as dest for read 
Save pointers and counters 


Read in data and wait for completi 
Return to real start of jnl buffer 


If read worked, continue 
Otherwise, restore regs 
Get our on error 


Ovrhd included in jnl entry size 
Write jnl entry 

Restore pointers and counters 
Get out on error | : 
Remove ovrhd from jnl entry size 


LS 


4 1 
ific journalin 16-SEP-1984 


RM1 JOURNL Sequential spec g Ages Macro v04-00 Page 1 
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97 629 : ; Determine start and end VBN of next buffer. 
3 bel 
\¢ AG 6 $2 =«~OD 97 066 MOVL R2, BOBSL_VBN(R4) : Start VBN was already calculated 
3C A 1C AG D 9B «66 MOVL BDBSL VBNTR4), RJRSL BLOCK -VON(RS) ; Save start VBN in jnl entry 
en” A 664 ADDL2 4 9 Get 1st VBN past next buffer 
74 AA 5 B1 A 665 CMPW IF BSL reek (R10) ; Is EOF in next buffer? 
03 1A O2A 666 BGTRU eit BI ; No, do not jnl past EOF (it has be 
FFA 31 | 97 BRW MAKE plone ENTRY ; Journal next set of blocks 
AC 96? 
AC 670 PUT_ENTRY 
AC 671 EXIT_BI_RTN: 
OOFO 8F BA AC ore OPR #°M<R4, RS, Rb, R7> 
05 0280 67 RSB ; Return to caller 
02B1 674 
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3 
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< 
e) 


kO Status 
R1 - R3 Destroyed 
IMPLICIT OUTPUTS: 
R1 address of current block in buffer 
R7 address of end of buffer + 1 


COMPLETION CODES: 

Any completion code returned by RMSNXTBLK1 
SIDE EFFECTS: 

None 


4 UF ae 1 -SBTTL CHANGE_BUFF = get next buffer 
B 

B} er 

4 ? 9 FUNCTIONAL DESCRIPTION: 

; ° ¢ CHANGE BUFF calls RMSNXTBLK1 for MAKE_BI_JNL. 
. ? : CALLING SEQUENCE: 

4 2 8 BSBB CHANGE _BUF F 
; ? 3 INPUT PARAMETERS: 

B 690 RB RAB 

B 691 RY IRAB 

B 69 R10 1FAB 

B 69 

B 694 IMPLICIT INPUTS: 

B 695 

; 036 None 

; 698 OUTPUT PARAMETERS: 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 


oa 

oO 
Pere rere rere re rererererererererererererererererererererererererererere rere 
1 
i 


; 


CHANGE _BUF F : 
CL 3; Indicate read required 


53 R3 
gos RMSNXTBLK1 ; Get new buffer contents 
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v04 URTBIINL = writes GIPRU Journal entry  'S-SEP=1984 foras:28 ERMSVSRCIRMTIOURNE mAR;1 | *O8e (9) vo 

y é .SBTTL WRTIBIJNL = writes BI/RU journal entry 
7 p++ 
7 § : 
f 3 ; FUNCTIONAL DESCRIPTION: 

6 4 ? ; WRIBIJNL writes a BI/RU jnl entry 

0 f g ; CALLING SEQUENCE: 

6 f 4 ; BSBB  - WRTBIJNL 

§ 736 : INPUT PARAMETERS: 

0 737; 

0 738 ; 

0 739 ; 

0 740 ; 

0 741 ; 

0 7 ¢ : 

8 7 i ; IMPLICIT INPUTS: 

8 2 : None | 

0 , : OUTPUT PARAMETERS: | 

0 9: RO Status 

9 : R1 Destroyed 

0 j : IMPLICIT OUTPUTS: 

0 4: None | 

0 5: 

0 6; 

0 ‘3 

0 8 3 

0 9; 

0 os 

: >: 

0 g : 

0 4; 

0 5 

0 6 


12 OOAO CA Os 1 
06 AS 0 0 
54 


RG Journal BDB 
R8 RAB 
RY IRAB 
R10 IF AB 


2 
7 COMPLETION CODES: 
o Any completion code returned by RMS$WRTJNL 
2BA SIDE EFFECTS: 
2BA 
of None 
BA 
sah -- 
BA 
2BA 766 WRIBIJNL: 
spa 767 BBC #1FBSV IFBSB_JNLFLG(R10), 10$ ; If BI/RU jnl"ing, write a BI/RU 
CO 768 MOVB #RJRSCIR Rng _BI, RIRSB_JNL_TYPE(R3) ; This is a BI journal entry 
DD 02C4 £8? PUSHL R4 ; Use jnt BOB as relate BDB 
7E 9 9A 0206 770 MOVZBL #CJF$_BI, -(SP) ; Pass jnl type to WRIBIJNL 
FD34"° 30 C9 «771 SBW RMSWRT INL ; Write jnl entry 
5€ 98 co cc ore ADDL2 4% SP : Remove args from stack 
15 50 +€9 cf ah LBC RO, 20% ; Get out on error 
OF OOAO CA 01 1 D3 775 10$: BBC #IFBSV_RU, IFBSB_JNLFLG(R10) RS) : If RU jnl'ing, write a RU entry 
06 A3 3 0 D ure OvB #RIRSC “RMS RU, RIRSB_JNL_ TYPE (R3) é This is an RU journal entry 
4 D oc 3=6—677 PUSHL R4 ; Use jnl BDB as relate ‘DB 
7E 1 A Df ore MOVZBL cuits mt -(SP) : Pass jnl type to WRIBIJNL 
FDIC" 30 E 77 SBW RMSWRTJN ; Write jnl entry 
5E 08 C0 E4 780 ADDL2 #8, at ; Remove args from stack 
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v04 


RNL 


Soquent tel sope tt ts 
WRIBIJNL = writes Bl 
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} 


ournaling 
RU journal entry 


RSB 
END 
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RM1 JOURNL 
Symbol table 


$$.PSECT_EP 
SSRMSTEST 
SSRMS_PBUGCHK 
SSRMS_TBUSCHK 
SSRMS_UMODE 


BD 
BOBSV_ 


85  & & om ww 


PAHAHAARHESG 
o * oOoc 


re] 
3 
nus 
zu 


LFLG 
BSB~ “RECVRFLGS 
RFMORG 
$L-DEVBUF S17 
L_EBK 


$VBI_RECVR 


$V"RU_RECVR 
SW-FFE 


DWDODWDODODOOOODOWD 
Seelclelcse a! 


. 
38222 
o 


“MODE 
BSL_CURBDB 
Bel. BDB 
BSL-NRP_VBN 
$L OFF 


oe a eh ne ns ne ee el ol a) 
pF FFE EE fi a i i i i i A Rs 
@owoww 


MAKE _AI_JNL 
MAKE"BI~ JNL 
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So 
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and aad aad and od ad 
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MAKE_TRUNC_ENTRY 
PUT_ENTRY 


tie atta VBN 
R AO 


RJRSW-RSIZE 
RJR$_PUT 
RJR$_TPT 
RJR$_ TRUNCATE 
RJRS_UPDATE 
RJRS~ UR TE 
RRSACDJNLBUF 


RMSFL 
RMSGETBLKNRP 


RMSWRTJNL 
RMS$_RBF 
RMS$_RHB 
TRUNE ENTRY 
RTBIJNL 
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| 
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RERKEKKK 
ReeeKee 
RRekkeKh 
Reeekeae 
RRERKEKE 
RERKEEEE 
Reekekae 


00000000 
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! Psect synopsis ! 


¢osceee asec ensaeneay 


PSECT name Allocation PSECT No. Attributes 
. ABS. 444! ( 0.) 
RMSRMS_ JOURNAL OOO02E8 ( 744.) 
SABSS 00000000 < 0.) 


$euwesceceue esc w eon meena wae + 


; Performance indicators : 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 00:00:00.75 
pounene processing 116 00:00:00.64 BB re 
351 00:00:12.00 00:00:36.97 
Synbol table sort 0 00:00:01.78 00:00:03.05 
Pass 2 138 00:00:02.85 00:00:07.67 
Symbol table output 13 00:00:00.11 bs Ss 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 650 00:00:17.48 00:00:53.64 


The working ort Limit was 1650 pages. 
70414 bytes (1358 pages) of virtual memory were used to buffer the intermediate code. 


84 source lines were read in Pass 1, producing 14 object records in Pass 2. 
23 pages of virtual memory were used to define 22 macros. 


wrest eet eee nee eee owe eee eee =} 


Macro Library name Macros defined 
$25580UA28 heer ons RMS .MLB;1 12 
$555¢0uns6 LIB.MLB;1 1 

SDUA2B: SYSCIB3STARLET. MLB;2 5 

Teface (all libraries) 18 


1385 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 


AX/VMS Macro v04-00 
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There were 70 pages of symbol table space allocated to hold 1275 non-local and 23 local symbo(s. 


MACRO/LIS=L1S$:RM1JOURNL/OBJ=OBJ$:RM1JOURNL MSRC$:RM1JOURNL/UPDATE=(ENHS:RM1JOURNL) +EXECML$/L1IB+LIB$:RMS/LIB 
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(9) 


00 ¢ ( 9. ) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
| PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
02 2: ) NOPIC USR CON ABS LCL NOSHR EXE RD WRY NOVEC BYTE 
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